home *** CD-ROM | disk | FTP | other *** search
/ Item MB Quick & Easy 2.0 / Item MB Quick & Easy 2.0.iso / mbfacad / mb41685.lsp < prev    next >
Text File  |  1998-03-15  |  2KB  |  70 lines
  1. ;=============415.81 HANDGRIFF Al 200
  2.  
  3. (EAITDBL "0041685")
  4. (EAITmsg "mb_mld10" "\n" "002" nil) (princ "........") (princ EAITnrx) (princ "\n")
  5. (princ)
  6.  
  7. (defun C:0041685B (/ P1 P0 R Wi)
  8.    (EAITDBL "0041685")
  9.    (princ (strcat "\n\n" EAITbez1))
  10.    (EAITvari)
  11.    (EAITvars)
  12.    (setvar "ORTHOMODE" 0)
  13.    (EAITbpt EAITofmit 2 nil)
  14.    (setq P1 (getpoint))
  15.    (if (= P1 nil)(setq P1 (EAITrpt)))
  16.    (EAITmsg "mb_mld10" "\n" "024" nil)(EAITmsg "mb_mld10" " " "028" " ") ;Versatz: <50>
  17.    (setq R (getreal))
  18.    (if (= R nil)(setq R 50))
  19.    (setvar "ORTHOMODE" 1)
  20.    (setvar "OSMODE" 0)
  21.    (initget 1)
  22.    (EAITmsg "mb_mld10" nil "008" nil)           ;Konstruktionsrichtung
  23.    (setq Wi (getangle P1))
  24.    (setq P0 (polar P1 Wi R))
  25.    (setvar "OSMODE" 0)
  26.    (setvar "ORTHOMODE" 0)
  27.    (command EAITege (strcat EAITpfn "0041685B") P0 "" "" (EAITbig Wi))
  28.  
  29.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P0 (+ (EAITbw) (EAITgib 90)) 30) "" "" ""
  30.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  31.    )
  32.  
  33.    (EAITvarz2)
  34.    (princ)
  35. )
  36.  
  37.  
  38.  
  39. (defun C:0041685C (/ P1 P0 R Wi)
  40.    (EAITDBL "0041685")
  41.    (princ (strcat "\n\n" EAITbez1))
  42.    (EAITvari)
  43.    (EAITvars)
  44.    (setvar "ORTHOMODE" 0)
  45.    (EAITbpt EAITofmit 2 nil)
  46.    (setq P1 (getpoint))
  47.    (if (= P1 nil)(setq P1 (EAITrpt)))
  48.    (EAITmsg "mb_mld10" "\n" "024" nil)(EAITmsg "mb_mld10" " " "028" " ") ;Versatz: <50>
  49.    (setq R (getreal))
  50.    (if (= R nil)(setq R 50))
  51.    (setvar "ORTHOMODE" 1)
  52.    (setvar "OSMODE" 0)
  53.    (initget 1)
  54.    (EAITmsg "mb_mld10" nil "008" nil)           ;Konstruktionsrichtung
  55.    (setq Wi (getangle P1))
  56.    (setq P0 (polar P1 Wi R))
  57.    (setvar "OSMODE" 0)
  58.    (setvar "ORTHOMODE" 1)
  59.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  60.    (command EAITege (strcat EAITpfn "0041685C") P0 "" "" EAITofkei pause)
  61.  
  62.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P0 (+ (EAITbw)(EAITgib 0)) 30) "" "" ""
  63.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  64.    )
  65.  
  66.    (EAITvarz2)
  67.    (princ)
  68. )
  69. (princ)
  70.